Code Implementation

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html>

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Check List</title>
</head>
<body>
    <form id="form1" method="post" runat="server">
        Choose your favorite programming language:<br /> <br />
        <asp:CheckBoxList ID="chklst" runat="server" /> <br /> <br />
        <asp:Button id="cmdOK" Text="OK" runat="server" /> <br /> <br />
        <asp:Label id="lblResult" runat="server" />
    </form>
</body>
</html>


Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            chklst.Items.Add("C")
            chklst.Items.Add("C++")
            chklst.Items.Add("C#")
            chklst.Items.Add("Visual Basic 6.0")
            chklst.Items.Add("VB.NET")
            chklst.Items.Add("Pascal")
        End If
    End Sub
    Protected Sub cmdOK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        lblResult.Text = "You Chose and Removed:"
        Dim selectedItems As New List(Of ListItem)
        ' Collect selected items
        For Each lstItem As ListItem In chklst.Items
            If lstItem.Selected = True Then
                selectedItems.Add(lstItem)
            End If
        Next
        ' Remove selected items and update label
        For Each lstItem As ListItem In selectedItems
            lblResult.Text &= "<br/>" & lstItem.Text
            chklst.Items.Remove(lstItem)
        Next
    End Sub
End Class